Top 10k strings from Easiledger (1984)(Gemini Marketing).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 );" ";d$(i,14
   1 z$=" Transaction":
   1 y$="Account":
   1 u(l)=u(l)+t:
   1 t$=t$+"00":
   1 t$=t$+"0":
   1 t$=t$+".00":
   1 t$=" "+t$:
   1 i$="2805032":
   1 i$="1012042":
   1 i$="1010082":
   1 i$="1008081":
   1 i$="1006041":
   1 i$="1005081":
   1 d$(i)=d$(i+1
   1 b$=b$+t$+" "+d$(i,6
   1 b$="VAT Total- "+t$:
   1 b$="VAT OUTPUT SUMMARY"
   1 b$="VAT INPUT SUMMARY":
   1 b$=" "+a$(1
   1 a$="Order#:":
   1 a$="Invoice#:"
   1 Write FileA
   1 No. T Date A/C     Amount Or/In 
   1 MAIN  MENU
   1 Enter Option
   1 Enter Choice"
   1 COMMACC   9
   1 COMMACC   
   1 Any key to continue
   1 Any key for main menu
   1 ;tm-nt;z$;"s remaining";
   1 ;t$(i);" - ";b$:
   1 ;nt;z$;"s on file";
   1 ;i;" - ";a$:
   1 ;"Version 9/84":
   1 ;"VAT (%):":
   1 ;"Transaction ";i;" completed":
   1 ;"Transaction  Deleted":
   1 ;"Total = ";t$
   1 ;"Tel (0395) 265165"
   1 ;"No such credit transaction found":
   1 ;"Microdrive or Cassete (m/c)? ":
   1 ;"LOADING PROGRAM .. PLEASE WAIT"
   1 ;"Is this correct? (y/n)":
   1 ;"Input or Output? (i/o)":
   1 ;"Exmouth";
   1 ;"Enter";z$;" number":
   1 ;"England";
   1 ;"Easiledger":
   1 ;"Deleting transaction ";r:
   1 ;"Cheque#:":
   1 ;"Balance- ";:
   1 ;"Are you sure?":
   1 ;"Are you sure? (y/n)":
   1 ;"Amount:":
   1 ;"Account:":
   1 ;"21, Dinan Way Trading Estate";
   1 ;"** No more Room **":
   1 1984 Gemini Marketing Ltd.":
   1 11010  100.00Jones   Inv1        015 41010  199.95Smith   Ord1        015 61110   50.00Jones   Ord1  12345 015                                                                           
   1 ,y$+"s Receivable",5000
   1 ,y$+"s Payable",4500
   1 ,y$+" Search",6500
   1 ,"Write File"
   1 ,"VAT Summary",5500
   1 ,"New File",4000
   1 ,"List Journal",3500
   1 ,"Financial Summary",3000
   1 ,"Exit Program",2500
   1 ,"Delete"+z$,2000
   1 ,"Bank Summary",1500
   1 ,"Add"+z$,6000
   1 );" ";d$(i,6
   1 );" ";d$(i,22
   1 );" ";d$(i,2
   1 );" ";d$(i,1
   1 )+" "+t$+" ":
   1 )+" "+d$(i,6
   1 )+" "+d$(i,22
   1 )+" "+d$(i,2
   1 )+" "+d$(i,14
   1 )+" "+d$(i,1
   1 "Enter Filename: ";t$
   1 "Credit Sales","Payments for (1)","Cash Sales","Credit Purchases","Cheque Payments for (4)","Cheque Payments - Other","Bank Deposits","Return to Main Menu"
   1 "ABDEFJNPRSVW",1000
   1 ";y$;" search on '";b$;"'
   1 " ";d$(i,28
   1 " ";d$(i,2
   1 " ";"CREDIT"
   1  Transaction
   1  No.  Amount     VAT     Total  
   1  Date Account   Amount  Cheque  
   1  ";z$;" Menu 
   1   1984 Gemini Marketing Ltd"